﻿Public Class frmWait

    Private mvarFileName As String

    Public Sub New(ByVal FileName As String)

        ' This call is required by the designer.
        InitializeComponent()
        ' Add any initialization after the InitializeComponent() call.
        mvarFileName = FileName
        Timer.Enabled = True

    End Sub

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()
        ' Add any initialization after the InitializeComponent() call.
        Timer.Enabled = False

    End Sub

    Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick

        If mvarFileName = "" Then
            lblInformation.Text = "Proszę czekać..."
            lblFileName.Visible = False
        Else
            lblInformation.Text = "Proszę czekać..."
            lblFileName.Visible = True
            lblFileName.Text = mvarFileName
        End If

    End Sub

End Class